home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level1 / Dispmap3.vs < prev    next >
Encoding:
Text File  |  2002-10-07  |  868 b   |  24 lines
  1. ReadArchive "statics.vib"
  2.  
  3. Declare DispShader = Shader [ FunctionalSurface [
  4.   Color mix(UVImageMapping(ImageFile("mastic.jpg", NORMALIZED)),'0.5412, 0.8020, 0.5020',0.5)
  5.   Kd 0.8
  6.   Ks 0.2
  7.   GaussianSpecularBRDF 10
  8.  ]
  9. ]
  10.  
  11. Declare veins = SpectrumOfColors(
  12.      [0.000, '0.898, 0.898, 0.851', 0.212, '0.969, 0.980, 0.875']
  13.      [0.212, '0.969, 0.980, 0.875', 0.424, '0.859, 0.859, 0.859']
  14.      [0.424, '0.859, 0.859, 0.859', 0.627, '0.992, 0.922, 0.659']
  15.      [0.627, '0.992, 0.922, 0.659', 0.881, '0.937, 0.965, 0.902']
  16.      [0.881, '0.937, 0.965, 0.902', 1.01,  '0.898, 0.898, 0.851'])
  17.  
  18. Declare veins_pattern = Shader [
  19.  FunctionalSurface [ Kd 0.85 Color veins[Agate] ]
  20. ]
  21.  
  22. static skymap = ImageFile("sky.jpg",NORMALIZED)
  23. Declare skyexpression = mix((Level == 0 ? PlanarImageMapping(skymap, Po) : SphericalImageMapping(skymap, I)), '0.929412,0.907843,1', 0.35)
  24.